home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / abreed3.lha / ObjectMove < prev    next >
Text File  |  1995-09-13  |  29KB  |  2,136 lines
  1. extlen: dc.w 0
  2. awayfromwall: dc.w 0
  3. wallbounce: dc.w 0
  4. wallxsize: dc.w 0
  5. wallzsize: dc.w 0
  6. walllength: dc.w 0
  7.  
  8. RoomPath: ds.w 100
  9. RoomPathPtr: dc.l 0
  10.  
  11. MoveObject:
  12.  
  13.  move.l #RoomPath,RoomPathPtr
  14.  
  15.  clr.b hitwall
  16.  
  17.  move.w newx,d0
  18.  sub.w oldx,d0
  19.  move.w d0,xdiff
  20.  move.w newz,d0
  21.  sub.w oldz,d0
  22.  move.w d0,zdiff
  23.  tst.w xdiff
  24.  bne.s .moveing
  25.  tst.w zdiff
  26.  bne.s .moveing
  27.  rts
  28.  
  29. .moveing:
  30.  
  31.  move.l newy,wallhitheight
  32.  move.l objroom,a0
  33.  
  34. gobackanddoitallagain:
  35.  
  36.  move.l a0,a5
  37.  adda.w ToExitList(a5),a0
  38.  move.l a0,test
  39.  move.l FloorLines,a1
  40. checkwalls:
  41.  move.w (a0)+,d0
  42.  blt nomorewalls
  43.  
  44.  asl.w #4,d0
  45.  lea (a1,d0.w),a2
  46.  
  47. *********************************
  48. * Check if we are within exit limits
  49. * of zone.
  50. *********************************
  51.  
  52.  move.l #-65536*256,d0
  53.  move.l d0,LowerRoofHeight
  54.  move.l d0,UpperRoofHeight
  55.  move.l d0,LowerFloorHeight
  56.  move.l d0,UpperFloorHeight
  57.  
  58. ; tst.b 9(a2)
  59. ; bne thisisawall2
  60.  
  61.  moveq #0,d1
  62.  move.w 8(a2),d1
  63.  blt thisisawall2
  64.  move.l ZoneAdds,a4
  65.  move.l (a4,d1.w*4),a4
  66.  add.l LEVELDATA,a4
  67.  
  68.  move.l ToZoneFloor(a4),d1
  69.  move.l d1,LowerFloorHeight
  70.  move.l ToZoneRoof(a4),d2
  71.  move.l d2,LowerRoofHeight
  72.  
  73.  bra thisisawall1
  74.  
  75.  sub.l d2,d1
  76.  cmp.l thingheight,d1
  77.  ble thisisawall1
  78.  
  79.  move.l oldy,d0
  80.  move.l d0,d1
  81.  add.l thingheight,d1
  82.  sub.l ToZoneFloor(a4),d1
  83.  bgt.s chkstepup
  84.  
  85.  neg.l d1
  86.  cmp.l StepDownVal,d1
  87.  blt.s botinsidebot
  88.  
  89. chkstepup:
  90.  cmp.l StepUpVal,d1
  91.  blt.s botinsidebot
  92.  
  93. ; We have a wall!
  94.  bra thisisawall1
  95.  
  96. botinsidebot:
  97.  
  98.  sub.l ToZoneRoof(a4),d0
  99.  blt.s thisisawall1
  100.  
  101.  bra checkwalls
  102.  
  103. thisisawall1:
  104.  
  105.  move.l ToUpperFloor(a4),d1
  106.  move.l d1,UpperFloorHeight
  107.  move.l ToUpperRoof(a4),d2
  108.  sub.l d2,d1
  109.  move.l d2,UpperRoofHeight
  110.  
  111.  bra thisisawall2
  112.  
  113.  cmp.l thingheight,d1
  114.  ble thisisawall2
  115.  
  116.  move.l oldy,d0
  117.  move.l d0,d1
  118.  add.l thingheight,d1
  119.  sub.l ToUpperFloor(a4),d1
  120.  bgt.s chkstepup2
  121.  
  122.  neg.l d1
  123.  cmp.l StepDownVal,d1
  124.  blt.s botinsidebot2
  125.  bra.s thisisawall2
  126.  
  127. chkstepup2:
  128.  cmp.l StepUpVal,d1
  129.  blt.s botinsidebot2
  130.  
  131. ; We have a wall!
  132.  bra thisisawall2
  133.  
  134. botinsidebot2:
  135.  
  136.  sub.l ToUpperRoof(a4),d0
  137.  blt.s thisisawall2
  138.  
  139.  bra checkwalls
  140. thisisawall2
  141.  
  142.  move.l #0,a4
  143.  move.l #0,a6
  144.  move.b awayfromwall,d3
  145.  blt.s .notomatoes
  146.  
  147.  move.b 12(a2),d2
  148.  ext.w d2
  149.  
  150.  move.b 13(a2),d4
  151.  ext.w d4
  152.  
  153.  tst.b d3
  154.  beq.s .noshift
  155.  asl.w d3,d2
  156.  asl.w d3,d4
  157. .noshift
  158.  
  159.  move.w d2,a4
  160.  move.w d4,a6
  161.  
  162. .notomatoes:
  163.  
  164.  move.w newx,d0
  165.  move.w newz,d1
  166.  sub.w (a2),d0
  167.  sub.w 2(a2),d1
  168.  sub.w a4,d0
  169.  sub.w a6,d1
  170.  
  171.  move.w 4(a2),d2
  172.  sub.w a4,d2
  173.  sub.w a6,d2
  174.  
  175.  muls d2,d1
  176.  
  177.  move.w 6(a2),d5
  178.  add.w a4,d5
  179.  sub.w a6,d5
  180.  
  181.  muls d5,d0
  182.  sub.l d1,d0
  183.  ble chkhttt
  184.  
  185.  move.w 10(a2),d3
  186.  add.w extlen,d3
  187.  divs d3,d0
  188.  cmp.w #32,d0
  189.  bge oknothitwall
  190.  
  191.  move.w wallflags(pc),d0
  192.  or.w d0,14(a2) 
  193.  
  194.  bra oknothitwall
  195.  
  196. chkhttt:
  197.  
  198.  move.w d2,WALLXLEN
  199.  move.w d5,WALLZLEN
  200.  
  201.  move.l d0,d7
  202.  
  203.  move.w 10(a2),d3
  204.  add.w extlen,d3
  205.  divs d3,d7    ;  d
  206.  
  207.  move.l newy,d4
  208.  sub.l oldy,d4
  209. ; beq .dontworryhit
  210.  
  211.  move.w oldx,d0
  212.  move.w oldz,d1
  213.  sub.w (a2),d0
  214.  sub.w 2(a2),d1
  215.  sub.w a4,d0
  216.  sub.w a6,d1
  217.  
  218.  muls d2,d1
  219.  muls d5,d0
  220.  sub.l d1,d0
  221.  divs d3,d0    ; otherd
  222.  
  223.  sub.w d7,d0    ; total distance travelled across wall
  224.  bgt.s .ohbugger
  225.  moveq #1,d0
  226. .ohbugger:
  227.  
  228. ; We now have ratio to multiply x,z and y differences
  229. ; by. Check y=0 since that's quite common.
  230.  
  231.  move.l d4,d1
  232.  beq.s .dontworryhit
  233.  
  234.  divs d0,d1
  235.  muls d7,d1
  236. .dontworryhit:
  237.  add.l newy,d1 ; height at point of crossing wall.
  238.  move.l d1,d6
  239.  add.l thingheight,d6
  240.  sub.l StepUpVal,d6
  241.  
  242.  cmp.l LowerFloorHeight,d6
  243.  bge.s .yeshit
  244.  cmp.l LowerRoofHeight,d1
  245.  bgt oknothitwall
  246.  cmp.l UpperRoofHeight,d1
  247.  blt.s .yeshit
  248.  cmp.l UpperFloorHeight,d6
  249.  blt oknothitwall
  250.  
  251. .yeshit:
  252.  
  253.  move.l d1,wallhitheight
  254.  
  255.  tst.b wallbounce
  256.  bne.s .calcbounce
  257.  
  258.  tst.b exitfirst(pc)
  259.  beq.s .calcalong
  260.  bne.s .calcwherehit
  261.  
  262. .calcbounce:
  263.  
  264. ; For simplicity (possibility!) the
  265. ; bounce routine will:
  266. ; Place the object at wall contact
  267. ; point
  268. ; Supply wall data to reflect the
  269. ; movement direction of the object
  270.  
  271.  move.w d2,wallxsize
  272.  move.w d5,wallzsize
  273.  move.w d3,walllength
  274.  
  275. .calcwherehit:
  276.  
  277. ; add.w #20,d7
  278.  move.w newx,d6
  279.  sub.w oldx,d6
  280.  muls d7,d6
  281.  divs d0,d6
  282.  add.w newx,d6
  283.  
  284.  move.w newz,d1
  285.  sub.w oldz,d1
  286.  muls d7,d1
  287.  divs d0,d1
  288.  add.w newz,d1
  289.  move.w d6,d0
  290.  move.w d1,d7
  291.  bra.s .calcedhit
  292.  
  293. .calcalong:
  294.  
  295. ; sub.w #3,d7
  296.  move.w d7,d6
  297.  muls d5,d6
  298.  muls d2,d7
  299.  divs d3,d6
  300.  divs d3,d7
  301.  neg.w d6
  302.  add.w newx,d6    ; point on wall
  303.  add.w newz,d7
  304.  
  305.  move.w d6,d0
  306.  move.w d7,d1
  307.  bra.s othercheck
  308.  
  309. .calcedhit:
  310.  
  311.  move.w newx,d6
  312.  move.w newz,d7
  313.  sub.w oldx,d6
  314.  sub.w oldz,d7
  315.   
  316.  move.w (a2),d4
  317.  add.w a4,d4
  318.  sub.w oldx,d4
  319.  muls d4,d7; negative if on left
  320.  move.w 2(a2),d4
  321.  add.w a6,d4
  322.  sub.w oldz,d4
  323.  muls d4,d6
  324.  sub.l d6,d7
  325.  bgt oknothitwall
  326.  
  327.  move.w d0,d6
  328.  move.w d1,d7
  329.  move.w newx,d6
  330.  move.w newz,d7
  331.  sub.w oldx,d6
  332.  sub.w oldz,d7
  333.  
  334.  move.w (a2),d4
  335.  add.w a4,d4
  336.  add.w d2,d4
  337.  sub.w oldx,d4
  338.  muls d4,d7; negative if on left
  339.  move.w 2(a2),d4
  340.  add.w a6,d4
  341.  add.w d5,d4
  342.  sub.w oldz,d4
  343.  muls d4,d6
  344.  sub.l d6,d7
  345.  blt oknothitwall
  346.  bra hitthewall
  347.  
  348.  
  349. othercheck:
  350.  
  351. ; sub.w (a2),d6
  352. ; sub.w 2(a2),d7
  353. ; sub.w a4,d6
  354. ; sub.w a6,d7
  355. ; 
  356. ; muls d6,d6
  357. ; muls d7,d7
  358. ; add.w #5,d3
  359. ; muls d3,d3
  360. ; 
  361. ; add.l d6,d7
  362. ; cmp.l d3,d7
  363. ; bgt oknothitwall
  364. ; 
  365. ; move.w d1,d7
  366. ; move.w d0,d6
  367. ; sub.w (a2),d6
  368. ; sub.w 2(a2),d7
  369. ; sub.w d2,d6
  370. ; sub.w d5,d7
  371. ; muls d6,d6
  372. ; muls d7,d7
  373. ; add.l d6,d7
  374. ; cmp.l d3,d7
  375. ; bgt oknothitwall
  376. ; 
  377. ;************8 
  378.  
  379.  sub.w (a2),d6
  380.  sub.w 2(a2),d7
  381.  
  382.  sub.w a4,d6
  383.  sub.w a6,d7
  384.  move.w d2,d4
  385.  bge.s okplus1
  386.  neg.w d4
  387. okplus1
  388.  move.w d5,d3
  389.  bge.s okplus2
  390.  neg.w d3
  391. okplus2:
  392.  cmp.w d4,d3
  393.  bgt.s UseZ
  394.  
  395. ; Use the x coord!
  396.  
  397.  tst.w d6
  398.  bgt.s xispos
  399.  
  400.  move.w d2,d7
  401.  cmp.w #4,d7
  402.  bgt.s oknothitwall
  403.  sub.w #4,d7
  404.  cmp.w d7,d6
  405.  blt.s oknothitwall
  406.  
  407.  bra.s hitthewall
  408.  
  409. xispos:
  410.  
  411.  move.w d2,d7
  412.  cmp.w #-4,d7
  413.  blt.s oknothitwall
  414.  add.w #4,d7
  415.  cmp.w d7,d6
  416.  bgt.s oknothitwall
  417.  
  418.  bra.s hitthewall
  419.  
  420. UseZ:
  421.  tst.w d7
  422.  bgt.s zispos
  423.  
  424.  move.w d5,d6
  425.  cmp.w #4,d6
  426.  bgt.s oknothitwall
  427.  sub.w #4,d6
  428.  cmp.w d6,d7
  429.  blt.s oknothitwall
  430.  
  431.  bra.s hitthewall
  432.  
  433. zispos:
  434.  
  435.  move.w d5,d6
  436.  cmp.w #-4,d6
  437.  blt.s oknothitwall
  438.  add.w #4,d6
  439.  cmp.w d6,d7
  440.  bgt.s oknothitwall 
  441.  
  442. hitthewall:
  443.  
  444.  move.w d0,newx
  445.  move.w d1,newz
  446.  move.w wallflags(pc),d0
  447.  or.w d0,14(a2)
  448.  st hitwall
  449.  tst.b exitfirst(pc)
  450.  bne stopandleave
  451.  
  452. oknothitwall:
  453.  
  454.  bra checkwalls
  455. nomorewalls:
  456.  
  457.  tst.w extlen
  458.  beq NOOTHERWALLSNEEDED
  459.  
  460.  tst.w xdiff
  461.  bne.s notstill
  462.  tst.w zdiff
  463.  bne.s notstill
  464.  move.l objroom,a0
  465.  bra mustbeinsameroom
  466. notstill:
  467.  
  468.  move.l a5,a0
  469.  add.w ToExitList(a0),a0
  470.  
  471. checkotherwalls:
  472.  move.w (a0)+,d0
  473.  bge anotherwalls
  474.  cmp.w #-2,d0
  475.  beq nomoreotherwalls
  476.  bra checkotherwalls
  477.  
  478. anotherwalls:
  479.  
  480.  asl.w #4,d0
  481.  lea (a1,d0.w),a2
  482.  
  483. *********************************
  484. * Check if we are within exit limits
  485. * of zone.
  486. *********************************
  487.  
  488. ; tst.b 9(a2)
  489. ; bne .thisisawall2
  490.  
  491.  moveq #0,d1
  492.  move.w 8(a2),d1
  493.  blt .thisisawall2
  494.  move.l ZoneAdds,a4
  495.  move.l (a4,d1.w*4),a4
  496.  add.l LEVELDATA,a4
  497.  
  498.  move.l ToZoneFloor(a4),d1
  499.  sub.l ToZoneRoof(a4),d1
  500.  cmp.l thingheight,d1
  501.  ble .thisisawall1
  502.  
  503.  move.l newy,d0
  504.  move.l d0,d1
  505.  add.l thingheight,d1
  506.  sub.l ToZoneFloor(a4),d1
  507.  bgt.s .chkstepup
  508.  
  509.  neg.l d1
  510.  cmp.l StepDownVal,d1
  511.  blt.s .botinsidebot
  512.  bra.s .thisisawall1
  513.  
  514. .chkstepup:
  515.  
  516.  cmp.l StepUpVal,d1
  517.  blt.s .botinsidebot
  518.  
  519. ; We have a wall!
  520.  bra .thisisawall1
  521.  
  522. .botinsidebot:
  523.  
  524.  sub.l ToZoneRoof(a4),d0
  525.  blt.s .thisisawall1
  526.  
  527.  bra checkotherwalls
  528.  
  529. .thisisawall1:
  530.  
  531.  move.l ToUpperFloor(a4),d1
  532.  sub.l ToUpperRoof(a4),d1
  533.  cmp.l thingheight,d1
  534.  ble .thisisawall2
  535.  
  536.  move.l newy,d0
  537.  move.l d0,d1
  538.  add.l thingheight,d1
  539.  sub.l ToUpperFloor(a4),d1
  540.  bgt.s .chkstepup2
  541.  
  542.  neg.l d1
  543.  cmp.l StepDownVal,d1
  544.  blt.s .botinsidebot2
  545.  bra.s .thisisawall2
  546.  
  547. .chkstepup2:
  548.  
  549.  cmp.l StepUpVal,d1
  550.  blt.s .botinsidebot2
  551.  
  552. ; We have a wall!
  553.  bra .thisisawall2
  554.  
  555. .botinsidebot2:
  556.  
  557.  sub.l ToUpperRoof(a4),d0
  558.  blt.s .thisisawall2
  559.  
  560.  bra checkotherwalls
  561.  
  562. .thisisawall2:
  563.  
  564.  move.l #0,a4
  565.  move.l #0,a6
  566.  move.b awayfromwall,d3
  567.  blt.s .notomatoes
  568.  
  569.  move.b 12(a2),d2
  570.  ext.w d2
  571.  
  572.  move.b 13(a2),d4
  573.  ext.w d4
  574.  
  575.  tst.b d3
  576.  beq.s .noshift
  577.  asl.w d3,d2
  578.  asl.w d3,d4
  579. .noshift
  580.  
  581.  move.w d2,a4
  582.  move.w d4,a6
  583.  
  584. .notomatoes:
  585.  
  586.  move.w 4(a2),d2
  587.  sub.w a4,d2
  588.  sub.w a6,d2
  589.  move.w d2,DX
  590.  move.w 6(a2),d5
  591.  add.w a4,d5
  592.  sub.w a6,d5
  593.  
  594.  
  595.  move.w newx,d0
  596.  move.w newz,d1
  597.  sub.w (a2),d0
  598.  sub.w 2(a2),d1
  599.  sub.w a4,d0
  600.  sub.w a6,d1
  601.  muls DX,d1
  602.  muls d5,d0
  603.  sub.l d1,d0
  604.  bge .oknothitwall
  605.  move.l d0,d7
  606.  
  607.  move.w oldx,d1
  608.  move.w newx,d3
  609.  sub.w d1,d3
  610.  sub.w (a2),d1
  611.  sub.w a4,d1 ;e-a=d1
  612.  
  613.  move.w 2(a2),d2
  614.  add.w a6,d2
  615.  sub.w oldz,d2    ;b-f=d2
  616.  
  617.  move.w newz,d4
  618.  sub.w oldz,d4
  619.  
  620.  muls d4,d1
  621.  muls d3,d2
  622.  add.l d2,d1    ; h(e-a)+g(b-f)
  623.  
  624.  muls DX,d4
  625.  muls d5,d3
  626.  sub.l d3,d4
  627.  beq .oknothitwall
  628.  bgt.s .botpos
  629. .botneg:
  630.  tst.l d1
  631.  bgt .oknothitwall
  632.  cmp.l d1,d4
  633.  ble .mighthit
  634.  bra .oknothitwall
  635.  
  636. .botpos:
  637.  tst.l d1
  638.  blt .oknothitwall
  639.  cmp.l d1,d4
  640.  blt .oknothitwall
  641.  
  642. .mighthit:
  643.  
  644.  move.w 10(a2),d0
  645.  add.w extlen,d0
  646.  divs d0,d7    ;  d
  647.  sub.w #3,d7
  648.  move.w d7,d6
  649.  muls d5,d6
  650.  muls DX,d7
  651.  divs d0,d6
  652.  divs d0,d7
  653.  neg.w d6
  654.  add.w newx,d6    ; point on wall
  655.  add.w newz,d7
  656.  
  657.  move.w oldx,d0
  658.  move.w oldz,d1
  659.  sub.w (a2),d0
  660.  sub.w 2(a2),d1
  661.  sub.w a4,d0
  662.  sub.w a6,d1
  663.  muls DX,d1
  664.  muls d5,d0
  665.  sub.l d1,d0
  666.  blt .oknothitwall
  667.  
  668.  move.w d6,d0
  669.  move.w d7,d1
  670.  
  671.  bra .hitthewall
  672.  
  673.  sub.w (a2),d6
  674.  sub.w 2(a2),d7
  675.  move.w d6,d4
  676.  bge.s .okplus1
  677.  neg.w d4
  678. .okplus1
  679.  move.w d7,d3
  680.  bge.s .okplus2
  681.  neg.w d3
  682. .okplus2:
  683.  cmp.w d4,d3
  684.  bgt.s .UseZ
  685.  
  686. ; Use the x coord!
  687.  
  688.  tst.w d6
  689.  bgt.s .xispos
  690.  
  691.  move.w DX,d7
  692.  bgt.s .oknothitwall
  693.  cmp.w d7,d6
  694.  blt.s .oknothitwall
  695.  
  696.  bra.s .hitthewall
  697.  
  698. .xispos:
  699.  
  700.  move.w DX,d7
  701.  blt.s .oknothitwall
  702.  cmp.w d7,d6
  703.  bgt.s .oknothitwall
  704.  
  705.  bra.s .hitthewall
  706.  
  707. .UseZ:
  708.  tst.w d7
  709.  bgt.s .zispos
  710.  
  711.  move.w d5,d6
  712.  bgt.s .oknothitwall
  713.  cmp.w d6,d7
  714.  blt.s .oknothitwall
  715.  
  716.  bra.s .hitthewall
  717.  
  718. .zispos:
  719.  
  720.  move.w d5,d6
  721.  blt.s .oknothitwall
  722.  cmp.w d6,d7
  723.  bgt.s .oknothitwall
  724.  
  725.  
  726. .hitthewall:
  727.  
  728.  move.w d0,newx
  729.  move.w d1,newz
  730.  move.w wallflags(pc),d0
  731.  or.w d0,14(a2)
  732.  st hitwall
  733.  tst.b exitfirst(pc)
  734.  bne stopandleave
  735.  
  736. .oknothitwall:
  737.  
  738.  bra checkotherwalls
  739. nomoreotherwalls:
  740.  
  741. NOOTHERWALLSNEEDED
  742.  
  743.  
  744. ; move.w xdiff,d2
  745. ; muls d2,d2
  746. ; move.w zdiff,d3
  747. ; muls d3,d3
  748. ; move.w #0,movespd
  749. ; move.l #0,largespd
  750. ; add.l d3,d2
  751. ;
  752. ; move.w #31,d0
  753. ;.findhigh
  754. ; btst d0,d2
  755. ; bne .foundhigh
  756. ; dbra d0,.findhigh
  757. ;.foundhigh
  758. ; asr.w #1,d0
  759. ; clr.l d3
  760. ; bset d0,d3
  761. ; move.l d3,d0
  762. ;
  763. ; move.w d0,d3
  764. ; muls d3,d3    ; x*x
  765. ; sub.l d2,d3    ; x*x-a
  766. ; asr.l #1,d3    ; (x*x-a)/2
  767. ; divs d0,d3    ; (x*x-a)/2x
  768. ; sub.w d3,d0    ; second approx
  769. ; bgt .stillnot0
  770. ; move.w #1,d0
  771. ;.stillnot0
  772. ;
  773. ; move.w d0,d3
  774. ; muls d3,d3
  775. ; sub.l d2,d3
  776. ; asr.l #1,d3
  777. ; divs d0,d3
  778. ; sub.w d3,d0    ; second approx
  779. ; bgt .stillnot02
  780. ; move.w #1,d0
  781. ;.stillnot02
  782. ;
  783. ; move.w d0,movespd
  784. ;.moving
  785. ; ext.l d0
  786. ; asl.l #5,d0
  787. ; move.l d0,largespd
  788.  
  789. *****************************************************
  790. * FIND ROOM WE'RE STANDING IN ***********************
  791. *****************************************************
  792.  
  793.  move.l a5,a0
  794.  adda.w ToExitList(a5),a0
  795.  
  796.  move.l FloorLines,a1
  797. CheckMoreFloorLines
  798.  move.w (a0)+,d0    ; Either a floor line or -1
  799.  blt NoMoreFloorLines
  800.  asl.w #4,d0
  801.  lea (a1,d0.w),a2
  802.  
  803.  tst.w 8(a2)
  804.  blt.s CheckMoreFloorLines
  805.  
  806.  clr.b CrossIntoTop
  807.  
  808.  moveq #0,d1
  809.  move.w 8(a2),d1
  810.  move.l ZoneAdds,a4
  811.  move.l (a4,d1.w*4),a4
  812.  add.l LEVELDATA,a4
  813.  
  814.  move.l ToZoneRoof(a4),LowerRoofHeight
  815.  
  816. ; move.l newy,d0
  817. ; move.l d0,d1
  818. ; add.l thingheight,d1
  819. ;
  820. ; sub.l ToZoneRoof(a4),d0
  821. ; blt.s NOTINLOWER
  822. ; 
  823. ; sub.l ToZoneFloor(a4),d1
  824. ; blt.s okthebottom
  825. ;
  826. ; cmp.l StepUpVal,d1
  827. ; bgt.s NOTINLOWER
  828. ;
  829. ; move.l ToZoneFloor(a4),d1
  830. ; sub.l thingheight,d1
  831. ; move.l d1,newy
  832. ; bra okthebottom
  833. ;
  834. ;NOTINLOWER:
  835. ;
  836. ; move.l ToZoneRoof(a4),billy
  837. ; move.l ToZoneRoof(a4),billy+4
  838. ; add.l d0,billy+4
  839. ;
  840. ; st CrossIntoTop
  841. ; move.l newy,d0
  842. ; move.l d0,d1
  843. ; add.l thingheight,d1
  844. ; sub.l ToUpperRoof(a4),d0
  845. ; blt CheckMoreFloorLines
  846. ; 
  847. ; sub.l ToUpperFloor(a4),d1
  848. ; blt.s okthebottom
  849. ;
  850. ; cmp.l StepUpVal,d1
  851. ; bgt CheckMoreFloorLines
  852.  
  853. ; move.l ToUpperFloor(a4),d1
  854. ; sub.l thingheight,d1
  855. ; move.l d1,newy
  856.  
  857. okthebottom
  858.  
  859.  move.w newx,d0
  860.  move.w newz,d1
  861.  sub.w (a2),d0    ;a
  862.  sub.w 2(a2),d1    ;b
  863.  muls 4(a2),d1
  864.  muls 6(a2),d0
  865.  moveq #0,d3
  866.  move.w 8(a2),d3
  867.  move.l ZoneAdds,a3
  868.  move.l (a3,d3.w*4),a3
  869.  add.l LEVELDATA,a3
  870.  sub.l d1,d0
  871.  bge StillSameSide
  872.  
  873. * Player is now on the left side of this line.
  874. * Where was he before?
  875.  
  876. ; cmp.l a4,a5
  877. ; bne StillSameSide
  878.  
  879. ; move.w oldx,d0
  880. ; move.w oldz,d1
  881. ; sub.w (a2),d0    ;a
  882. ; sub.w 2(a2),d1    ;b
  883. ; muls 4(a2),d1
  884. ; muls 6(a2),d0
  885. ; sub.l d1,d0
  886. ; blt StillSameSide
  887. ; bra checkifcrossed
  888.  
  889. OnRightsideofline:
  890. * Player is now on the right side of the line.
  891. * Where was he last time?
  892.  
  893. ; exg a3,a4
  894.  
  895. ; cmp.l a3,a5
  896. ; bne StillSameSide
  897.  
  898. ; move.w oldx,d0
  899. ; move.w oldz,d1
  900. ; sub.w (a2),d0    ;a
  901. ; sub.w 2(a2),d1    ;b
  902. ; muls 4(a2),d1
  903. ; muls 6(a2),d0
  904. ; sub.l d1,d0
  905. ; bgt StillSameSide
  906.  
  907. checkifcrossed:
  908.  
  909. *Player used to be on other side of this line.
  910. *Need to check if he crossed it.
  911.  
  912.  move.l d0,billy
  913.  
  914.  move.w newx,d6
  915.  move.w newz,d7
  916.  sub.w oldx,d6
  917.  sub.w oldz,d7
  918.   
  919.  move.w (a2),d4
  920.  sub.w oldx,d4
  921.  muls d4,d7; negative if on left
  922.  move.w 2(a2),d4
  923.  sub.w oldz,d4
  924.  muls d4,d6
  925.  sub.l d6,d7
  926.  bgt StillSameSide
  927.  
  928.  move.w d0,d6
  929.  move.w d1,d7
  930.  move.w newx,d6
  931.  move.w newz,d7
  932.  sub.w oldx,d6
  933.  sub.w oldz,d7
  934.  
  935.  move.w (a2),d4
  936.  add.w 4(a2),d4
  937.  sub.w oldx,d4
  938.  muls d4,d7; negative if on left
  939.  move.w 2(a2),d4
  940.  add.w 6(a2),d4
  941.  sub.w oldz,d4
  942.  muls d4,d6
  943.  sub.l d6,d7
  944.  blt StillSameSide
  945.  
  946. ; Find height at crossing point:
  947.  
  948.  move.l billy,d7
  949.  divs 10(a2),d7
  950.  move.w oldx,d0
  951.  move.w oldz,d1
  952.  sub.w (a2),d0
  953.  sub.w 2(a2),d1
  954.  sub.w a4,d0
  955.  sub.w a6,d1
  956.  
  957.  muls 4(a2),d1
  958.  muls 6(a2),d0
  959.  sub.l d1,d0
  960.  divs 10(a2),d0 
  961.  
  962.  sub.w d7,d0
  963.  bgt.s .ohbugger
  964.  moveq #1,d0
  965. .ohbugger:
  966.  
  967.  
  968.  move.l newy,d4
  969.  sub.l oldy,d4
  970.  divs d0,d4
  971.  muls d7,d4
  972.  add.l newy,d4
  973.  
  974.  cmp.l LowerRoofHeight,d4
  975.  slt StoodInTop
  976.  
  977.  move.l a3,a5
  978.  move.l RoomPathPtr,a0
  979.  move.w (a3),(a0)+
  980.  move.l a0,RoomPathPtr
  981.  move.l a3,a0
  982.  move.l a5,objroom
  983.  
  984.  bra gobackanddoitallagain
  985. ; bra.s donefloorline
  986.  
  987. StillSameSide:
  988. donefloorline:
  989.  
  990.  bra CheckMoreFloorLines
  991. NoMoreFloorLines:
  992.  
  993.  move.l a5,a0
  994.  move.l a5,objroom
  995.  
  996. mustbeinsameroom:
  997.  
  998. stopandleave:
  999.  
  1000.  move.l RoomPathPtr,a0
  1001.  move.w #-1,(a0)+
  1002.  
  1003.  rts
  1004.  
  1005.  
  1006. DX: dc.w 0
  1007.  
  1008. tstxval: dc.l 0
  1009. oldx: dc.l 0
  1010. oldz: dc.l 0
  1011. newx: dc.l 0
  1012. newz: dc.l 0
  1013. xdiff: dc.l 0
  1014. zdiff: dc.l 0
  1015. objroom: dc.l 0
  1016. hitwall: dc.b 0
  1017. exitfirst: dc.b 0
  1018. speed: dc.w 0
  1019. wallflags: dc.w 0
  1020. distaway: dc.w 0
  1021. newy: dc.l 0
  1022. oldy: dc.l 0
  1023. thingheight: dc.l 0
  1024. StepUpVal: dc.l 0
  1025. StepDownVal: dc.l 0
  1026. wallhitheight: dc.l 0
  1027. seclot: dc.b 0
  1028.  
  1029.  even
  1030. WALLXLEN: dc.w 0
  1031. WALLZLEN: dc.w 0
  1032. onwallx: dc.w 0
  1033. onwallz: dc.w 0
  1034. slidex: dc.w 0
  1035. slidez: dc.w 0
  1036. CrossIntoTop: dc.b 0
  1037. StoodInTop: dc.b 0
  1038. LowerFloorHeight: dc.l 0
  1039. LowerRoofHeight: dc.l 0
  1040. UpperFloorHeight: dc.l 0
  1041. UpperRoofHeight: dc.l 0
  1042.  
  1043. billy: dc.l 0,0
  1044.  
  1045.  even
  1046.  
  1047. HeadTowards:
  1048.  
  1049.  move.w newx,d1
  1050.  sub.w oldx,d1
  1051.  move.w d1,xdiff
  1052.  move.w newz,d2
  1053.  sub.w oldz,d2
  1054.  move.w d2,zdiff
  1055.  muls d1,d1
  1056.  muls d2,d2
  1057.  move.w #0,d0
  1058.  move.w d0,distaway
  1059.  add.l d1,d2
  1060.  beq nochange
  1061.  
  1062.  move.w #31,d0
  1063. .findhigh
  1064.  btst d0,d2
  1065.  bne .foundhigh
  1066.  dbra d0,.findhigh
  1067. .foundhigh
  1068.  asr.w #1,d0
  1069.  clr.l d3
  1070.  bset d0,d3
  1071.  move.l d3,d0
  1072.  
  1073.  move.w d0,d1
  1074.  muls d1,d1    ; x*x
  1075.  sub.l d2,d1    ; x*x-a
  1076.  asr.l #1,d1    ; (x*x-a)/2
  1077.  divs d0,d1    ; (x*x-a)/2x
  1078.  sub.w d1,d0    ; second approx
  1079.  bgt .stillnot0
  1080.  move.w #1,d0
  1081. .stillnot0
  1082.  
  1083.  move.w d0,d1
  1084.  muls d1,d1
  1085.  sub.l d2,d1
  1086.  asr.l #1,d1
  1087.  divs d0,d1
  1088.  sub.w d1,d0    ; second approx
  1089.  bgt .stillnot02
  1090.  move.w #1,d0
  1091. .stillnot02
  1092.  
  1093.  move.w d0,distaway
  1094.  
  1095. ; d0=perpdist
  1096.  
  1097.  cmp.w Range,d0
  1098.  sle GotThere
  1099.  bgt.s faraway
  1100.  
  1101.  move.w xdiff,d1
  1102.  move.w zdiff,d2
  1103.  muls Range,d1
  1104.  muls Range,d2
  1105.  divs d0,d1
  1106.  divs d0,d2
  1107.  neg.w d1
  1108.  neg.w d2
  1109.  add.w d1,newx
  1110.  add.w d2,newz
  1111.  bra nochange
  1112.  
  1113. faraway:
  1114.  move.w speed,d3
  1115.  add.w Range,d3
  1116.  cmp.w d0,d3
  1117.  blt.s .notoofast
  1118.  move.w d0,d3
  1119.  st GotThere
  1120. .notoofast:
  1121.  sub.w Range,d3
  1122.  
  1123.  move.w xdiff,d1
  1124.  muls d3,d1
  1125.  divs d0,d1
  1126.  move.w zdiff,d2
  1127.  muls d3,d2
  1128.  divs d0,d2
  1129.  add.w oldx,d1
  1130.  move.w d1,newx
  1131.  add.w oldz,d2
  1132.  move.w d2,newz
  1133.  
  1134. nochange:
  1135.  
  1136.  rts
  1137.  
  1138.  
  1139. CalcDist:
  1140.  
  1141.  move.w newx,d1
  1142.  sub.w oldx,d1
  1143.  move.w d1,xdiff
  1144.  move.w newz,d2
  1145.  sub.w oldz,d2
  1146.  move.w d2,zdiff
  1147.  muls d1,d1
  1148.  muls d2,d2
  1149.  move.w #0,d0
  1150.  move.w d0,distaway
  1151.  add.l d1,d2
  1152.  beq .nochange
  1153.  
  1154.  move.w #31,d0
  1155. .findhigh
  1156.  btst d0,d2
  1157.  bne .foundhigh
  1158.  dbra d0,.findhigh
  1159. .foundhigh
  1160.  asr.w #1,d0
  1161.  clr.l d3
  1162.  bset d0,d3
  1163.  move.l d3,d0
  1164.  
  1165.  move.w d0,d1
  1166.  muls d1,d1    ; x*x
  1167.  sub.l d2,d1    ; x*x-a
  1168.  asr.l #1,d1    ; (x*x-a)/2
  1169.  divs d0,d1    ; (x*x-a)/2x
  1170.  sub.w d1,d0    ; second approx
  1171.  bgt .stillnot0
  1172.  move.w #1,d0
  1173. .stillnot0
  1174.  
  1175.  move.w d0,d1
  1176.  muls d1,d1
  1177.  sub.l d2,d1
  1178.  asr.l #1,d1
  1179.  divs d0,d1
  1180.  sub.w d1,d0    ; second approx
  1181.  bgt .stillnot02
  1182.  move.w #1,d0
  1183. .stillnot02
  1184.  
  1185.  move.w d0,distaway
  1186. .nochange:
  1187.  
  1188.  rts
  1189.  
  1190.  
  1191. counterer: dc.w 0
  1192. CosRet: dc.w 0
  1193. SinRet: dc.w 0
  1194.  
  1195. HeadTowardsAng:
  1196.  
  1197.  move.w newx,d1
  1198.  sub.w oldx,d1
  1199.  move.w d1,xdiff
  1200.  move.w newz,d2
  1201.  sub.w oldz,d2
  1202.  move.w d2,zdiff
  1203.  muls d1,d1
  1204.  muls d2,d2
  1205.  move.w #0,d0
  1206.  add.l d1,d2
  1207.  seq GotThere
  1208.  beq .nochange
  1209.  
  1210.  move.w #31,d0
  1211. .findhigh
  1212.  btst d0,d2
  1213.  bne .foundhigh
  1214.  dbra d0,.findhigh
  1215. .foundhigh
  1216.  asr.w #1,d0
  1217.  clr.l d3
  1218.  bset d0,d3
  1219.  move.l d3,d0
  1220.  
  1221.  move.w d0,d1
  1222.  muls d1,d1    ; x*x
  1223.  sub.l d2,d1    ; x*x-a
  1224.  asr.l #1,d1    ; (x*x-a)/2
  1225.  divs d0,d1    ; (x*x-a)/2x
  1226.  sub.w d1,d0    ; second approx
  1227.  bgt .stillnot0
  1228.  move.w #1,d0
  1229. .stillnot0
  1230.  
  1231.  move.w d0,d1
  1232.  muls d1,d1
  1233.  sub.l d2,d1
  1234.  asr.l #1,d1
  1235.  divs d0,d1
  1236.  sub.w d1,d0    ; second approx
  1237.  bgt .stillnot02
  1238.  move.w #1,d0
  1239. .stillnot02
  1240.  
  1241.  move.w d0,d1
  1242.  muls d1,d1
  1243.  sub.l d2,d1
  1244.  asr.l #1,d1
  1245.  divs d0,d1
  1246.  sub.w d1,d0    ; second approx
  1247.  bgt .stillnot03
  1248.  move.w #1,d0
  1249. .stillnot03
  1250.  
  1251.  
  1252. ; d0=perpdist
  1253.  
  1254.  cmp.w Range,d0
  1255.  sle GotThere
  1256.  bgt .faraway
  1257.  
  1258.  move.w oldx,newx
  1259.  move.w oldz,newz
  1260.  bra .nochange
  1261.  
  1262.  move.w xdiff,d1
  1263.  move.w zdiff,d2
  1264.  muls Range,d1
  1265.  muls Range,d2
  1266.  addq #3,d0
  1267.  divs d0,d1
  1268.  divs d0,d2
  1269.  subq #3,d0
  1270.  neg.w d1
  1271.  neg.w d2
  1272.  add.w d1,newx
  1273.  add.w d2,newz
  1274.  tst.b canshove
  1275.  beq .nochange
  1276.  move.w PLR1_opushx(pc),d1
  1277.  add.w PLR2_opushx(pc),d1
  1278.  sub.w d1,newx
  1279.  move.w PLR1_opushz(pc),d1
  1280.  add.w PLR2_opushz(pc),d1
  1281.  sub.w d1,newz
  1282.  move.w xdiff,d1
  1283.  move.w zdiff,d2
  1284.  move.w Range,d3
  1285.  sub.w d0,d3
  1286.  muls d3,d1
  1287.  muls d3,d2
  1288.  divs d0,d1
  1289.  divs d0,d2
  1290.  move.w d1,shovex
  1291.  move.w d2,shovez
  1292.  bra .nochange
  1293.  
  1294. .faraway:
  1295.  
  1296.  move.w speed,d3
  1297.  add.w Range,d3
  1298.  cmp.w d0,d3
  1299.  blt.s .notoofast
  1300.  move.w d0,d3
  1301.  st GotThere
  1302. .notoofast:
  1303.  sub.w Range,d3
  1304.  
  1305.  move.w xdiff,d1
  1306.  muls d3,d1
  1307.  divs d0,d1
  1308.  move.w zdiff,d2
  1309.  muls d3,d2
  1310.  divs d0,d2
  1311.  add.w oldx,d1
  1312.  move.w d1,newx
  1313.  add.w oldz,d2
  1314.  move.w d2,newz
  1315.  
  1316. .nochange:
  1317.  
  1318.  tst.w d0
  1319.  beq.s nocossin
  1320.  
  1321.  add.w #1,d0
  1322.  move.w xdiff,d1
  1323.  swap d1
  1324.  clr.w d1
  1325.  asr.l #1,d1
  1326.  divs d0,d1
  1327.  move.w d1,SinRet
  1328.  move.w zdiff,d1
  1329.  swap d1
  1330.  clr.w d1
  1331.  asr.l #1,d1
  1332.  divs d0,d1
  1333.  move.w d1,CosRet
  1334.  
  1335.  move.w SinRet,d0
  1336.  move.w #0,d2
  1337.  move.l #SineTable,a2
  1338.  lea 2048(a2),a3
  1339.  move.w #3,d5
  1340.  move.w #2048,d6
  1341. findanglop:
  1342.  
  1343.  move.w (a2,d2.w*2),d3
  1344.  move.w (a3,d2.w*2),d4
  1345.  muls d0,d4
  1346.  muls d1,d3
  1347.  sub.l d3,d4
  1348.  blt.s subang
  1349.  add.w d6,d2
  1350.  add.w d6,d2
  1351. subang:
  1352.  sub.w d6,d2
  1353.  and.w #4095,d2
  1354.  asr.w #1,d6
  1355.  dbra d5,findanglop
  1356.  add.w d2,d2
  1357.  move.w d2,AngRet
  1358.  
  1359. nocossin:
  1360.  
  1361.  rts
  1362.  
  1363. AngRet: dc.w 0
  1364. Range: dc.w 0
  1365. GotThere: dc.w 0
  1366. shovex: dc.w 0
  1367. shovez: dc.w 0
  1368. canshove: dc.w 0
  1369. PLR2_pushx: dc.l 0
  1370. PLR2_pushz: dc.l 0
  1371. PLR2_opushx: dc.l 0
  1372. PLR2_opushz: dc.l 0
  1373. PLR1_pushx: dc.l 0
  1374. PLR1_pushz: dc.l 0
  1375. PLR1_opushx: dc.l 0
  1376. PLR1_opushz: dc.l 0
  1377.  
  1378. CheckHit:
  1379.  move.w newx,d0
  1380.  sub.w oldx,d0
  1381.  move.w newz,d1
  1382.  sub.w oldz,d1
  1383.  muls d1,d1
  1384.  muls d0,d0
  1385.  add.l d0,d1
  1386.  cmp.l d2,d1
  1387.  slt hitwall
  1388.  rts
  1389.  
  1390. GetNextCPt:
  1391.  cmp.w d0,d1
  1392.  beq.s noneedforhassle
  1393.  muls #100,d0
  1394.  ext.l d1
  1395.  add.l d1,d0
  1396.  move.l a0,-(a7)
  1397.  lea ControlPts,a0
  1398.  move.b (a0,d0.w),d0
  1399.  ext.w d0
  1400.  move.l (a7)+,a0
  1401. noneedforhassle:
  1402.  rts
  1403.  
  1404. FromRoom: dc.l 0
  1405. ToRoom: dc.l 0
  1406. CanSee: dc.w 0
  1407. Facedir: dc.w 0
  1408.  
  1409.  even
  1410.  
  1411. CanItBeSeenAng:
  1412.  movem.l d0-d7/a0-a6,-(a7)
  1413.  
  1414.  move.w Facedir,d0
  1415.  move.l #SineTable,a0
  1416.  add.w d0,a0
  1417.  move.w (a0),d0
  1418.  move.w 2048(a0),d1
  1419.  move.w Targetx,d2
  1420.  sub.w Viewerx,d2
  1421.  move.w Targetz,d3
  1422.  sub.w Viewerz,d3
  1423.  muls d1,d2
  1424.  muls d0,d3
  1425.  sub.l d3,d2
  1426.  bgt.s ItMightBeSeen
  1427.  clr.b CanSee
  1428.  movem.l (a7)+,d0-a7/a0-a6
  1429.  rts
  1430. ItMightBeSeen:
  1431.  
  1432.  move.l ToRoom,a0
  1433.  move.w (a0),d0
  1434.  move.l FromRoom,a0
  1435.  adda.w #ToListOfGraph,a0
  1436.  bra.s InList
  1437.  
  1438. Viewerx: dc.l 0
  1439. Viewerz: dc.l 0
  1440. Targetx: dc.l 0
  1441. Targetz: dc.l 0
  1442. ViewerTop: dc.b 0
  1443. TargetTop: dc.b 0 
  1444. Viewery: dc.w 0
  1445. Targety: dc.w 0
  1446.  
  1447.   even
  1448.  
  1449. insameroom:
  1450.  st CanSee
  1451.  move.b ViewerTop,d0
  1452.  move.b TargetTop,d1
  1453.  eor.b d0,d1
  1454.  bne outlist
  1455.  movem.l (a7)+,d0-d7/a0-a6
  1456.  rts
  1457.  
  1458. CanItBeSeen:
  1459.  
  1460.  movem.l d0-d7/a0-a6,-(a7)
  1461.  move.l ToRoom,a1
  1462.  move.w (a1),d0
  1463.  move.l FromRoom,a0
  1464.  cmp.l a0,a1
  1465.  beq.s insameroom
  1466.  
  1467.  adda.w #ToListOfGraph,a0
  1468.  
  1469. InList:
  1470.  move.w (a0),d1
  1471.  tst.w d1
  1472.  blt outlist
  1473.  move.l ZoneGraphAdds,a1
  1474.  move.l (a1,d1.w*8),a1
  1475.  add.l LEVELGRAPHICS,a1
  1476.  
  1477.  adda.w #8,a0
  1478.  cmp.w (a1),d0
  1479.  beq isinlist
  1480.  
  1481.  bra.s InList
  1482.  
  1483. isinlist:
  1484. ; We have found the dest room in the
  1485. ; list of rooms visible from the
  1486. ; source room.
  1487.  
  1488. ; Do line of sight!
  1489.  
  1490.  st CanSee
  1491.  
  1492.  move.l Points,a2
  1493.  move.w Targetx,d1
  1494.  move.w Targetz,d2
  1495.  sub.w Viewerx,d1
  1496.  sub.w Viewerz,d2
  1497.  
  1498.  moveq #0,d3
  1499.  move.w -6(a0),d3
  1500.  blt nomorerclips
  1501.  move.l LEVELCLIPS,a1
  1502.  lea (a1,d3.l*2),a1
  1503.  move.l a1,clipstocheck
  1504. checklcliploop:
  1505.  tst.w (a1)
  1506.  blt nomorelclips
  1507.  
  1508.  move.w (a1),d0
  1509.  blt.s noleftone
  1510.  move.l (a2,d0.w*4),d3
  1511.  move.w d3,d4
  1512.  sub.w Viewerz,d4
  1513.  swap d3
  1514.  sub.w Viewerx,d3
  1515.  muls d2,d3
  1516.  muls d1,d4
  1517.  sub.l d3,d4
  1518.  ble outlist
  1519.  
  1520. noleftone:
  1521.  
  1522.  addq #2,a1
  1523.  
  1524.  bra checklcliploop
  1525.  
  1526. nomorelclips:
  1527.  
  1528.  addq #2,a1
  1529.  
  1530. checkrcliploop:
  1531.  tst.w (a1)
  1532.  blt nomorerclips
  1533.  
  1534.  move.w (a1),d0
  1535.  blt.s norightone
  1536.  move.l (a2,d0.w*4),d3
  1537.  move.w d3,d4
  1538.  sub.w Viewerz,d4
  1539.  swap d3
  1540.  sub.w Viewerx,d3
  1541.  muls d2,d3
  1542.  muls d1,d4
  1543.  sub.l d3,d4
  1544.  bge outlist
  1545.  
  1546. norightone:
  1547.  addq #2,a1
  1548.  
  1549.  bra checkrcliploop
  1550.  
  1551.  
  1552. nomorerclips:
  1553.  
  1554. ; No clipping points in the way; got to do the
  1555. ; vertical working out now.
  1556.  
  1557.  move.w Targetx,d0
  1558.  move.w Targetz,d1
  1559.  sub.w Viewerx,d0
  1560.  sub.w Viewerz,d1
  1561.  move.l FromRoom,a5
  1562.  move.l FloorLines,a1
  1563.  move.b ViewerTop,d2
  1564.  move.w Targety,d7
  1565.  sub.w Viewery,d7
  1566.  
  1567.  
  1568. GoThroughZones:
  1569.  move.l a5,a0
  1570.  adda.w ToExitList(a0),a0
  1571.  
  1572. FindWayOut:
  1573.  move.w (a0)+,d5
  1574.  blt outlist
  1575.  asl.w #4,d5
  1576.  lea (a1,d5.w),a2
  1577.  
  1578.  move.w (a2),d3
  1579.  move.w 2(a2),d4
  1580.  sub.w Viewerx,d3
  1581.  sub.w Viewerz,d4
  1582.  move.w d3,d5
  1583.  move.w d4,d6
  1584.  muls d1,d3
  1585.  muls d0,d4
  1586.  sub.l d3,d4
  1587.  ble FindWayOut
  1588.  
  1589.  add.w 4(a2),d5
  1590.  add.w 6(a2),d6
  1591.  muls d0,d6
  1592.  muls d1,d5
  1593.  sub.l d5,d6
  1594.  bge FindWayOut
  1595.  
  1596.  tst.w 8(a2)
  1597.  blt outlist
  1598.  
  1599. ; Here is the exit from the room. Calculate the height at which
  1600. ; we meet it.
  1601.  
  1602.  move.w Targetx,d3
  1603.  move.w Targetz,d4
  1604.  sub.w (a2),d3
  1605.  sub.w 2(a2),d4
  1606.  muls 4(a2),d4
  1607.  muls 6(a2),d3
  1608.  sub.l d3,d4    ; positive
  1609.  
  1610.  move.w Viewerx,d5
  1611.  move.w Viewerz,d6
  1612.  sub.w (a2),d5
  1613.  sub.w 2(a2),d6
  1614.  muls 4(a2),d6
  1615.  muls 6(a2),d5
  1616.  sub.l d6,d5    ; positive
  1617.  
  1618.  divs 10(a2),d4
  1619.  divs 10(a2),d5
  1620.  
  1621.  add.w d5,d4
  1622.  beq.s sameheight
  1623.  muls d7,d5
  1624.  divs d4,d5
  1625. sameheight:
  1626.  add.w Viewery,d5    ; height at which we cross wall
  1627.  
  1628.  ext.l d5
  1629.  asl.l #7,d5
  1630.  
  1631.  tst.b d2
  1632.  beq.s comparewithbottom
  1633.  
  1634.  cmp.l ToUpperRoof(a5),d5
  1635.  blt outlist
  1636.  cmp.l ToUpperFloor(a5),d5
  1637.  bgt outlist
  1638.  bra.s madeit
  1639.  
  1640. comparewithbottom:
  1641.  cmp.l ToZoneRoof(a5),d5
  1642.  blt outlist
  1643.  cmp.l ToZoneFloor(a5),d5
  1644.  bgt outlist
  1645. madeit:
  1646.  st donessomething
  1647.  
  1648.  moveq #0,d3
  1649.  move.w 8(a2),d3
  1650.  move.l ZoneAdds,a3
  1651.  move.l (a3,d3.w*4),a5
  1652.  add.l LEVELDATA,a5
  1653.  
  1654.  clr.b d2
  1655.  cmp.l ToZoneFloor(a5),d5
  1656.  bgt outlist
  1657.  cmp.l ToZoneRoof(a5),d5
  1658.  bgt.s GotIn
  1659.  st d2
  1660.  cmp.l ToUpperFloor(a5),d5
  1661.  bgt outlist
  1662.  cmp.l ToUpperRoof(a5),d5
  1663.  blt outlist
  1664.  
  1665. GotIn:
  1666.  
  1667.  cmp.l ToRoom,a5
  1668.  bne GoThroughZones
  1669.  
  1670.  move.b TargetTop,d3
  1671.  eor.b d2,d3
  1672.  bne outlist
  1673.  
  1674.  movem.l (a7)+,d0-d7/a0-a6
  1675.  rts
  1676.  
  1677. clipstocheck: dc.l 0
  1678. donessomething: dc.w 0
  1679.  
  1680. outlist:
  1681.  clr.b CanSee
  1682.  movem.l (a7)+,d0-d7/a0-a6
  1683.  rts
  1684.  
  1685.  
  1686. FindCollisionPt:
  1687.  movem.l d0-a7/a0-a6,-(a7)
  1688.  
  1689.  move.w Targetx,d0
  1690.  move.w Targetz,d1
  1691.  sub.w Viewerx,d0
  1692.  sub.w Viewerz,d1
  1693.  move.l FromRoom,a5
  1694.  move.l FloorLines,a1
  1695.  move.b ViewerTop,d2
  1696.  move.w Targety,d7
  1697.  sub.w Viewery,d7
  1698.  
  1699.  
  1700. .GoThroughZones:
  1701.  move.l a5,a0
  1702.  adda.w ToExitList(a0),a0
  1703.  
  1704. .FindWayOut:
  1705.  move.w (a0)+,d5
  1706.  blt outlist
  1707.  asl.w #4,d5
  1708.  lea (a1,d5.w),a2
  1709.  
  1710.  move.w (a2),d3
  1711.  move.w 2(a2),d4
  1712.  sub.w Viewerx,d3
  1713.  sub.w Viewerz,d4
  1714.  move.w d3,d5
  1715.  move.w d4,d6
  1716.  muls d1,d3
  1717.  muls d0,d4
  1718.  sub.l d3,d4
  1719.  ble .FindWayOut
  1720.  
  1721.  add.w 4(a2),d5
  1722.  add.w 6(a2),d6
  1723.  muls d0,d6
  1724.  muls d1,d5
  1725.  sub.l d5,d6
  1726.  bge .FindWayOut
  1727.  
  1728.  
  1729. ; Here is the exit from the room. Calculate the height at which
  1730. ; we meet it.
  1731.  
  1732.  move.w Targetx,d3
  1733.  move.w Targetz,d4
  1734.  sub.w (a2),d3
  1735.  sub.w 2(a2),d4
  1736.  muls 4(a2),d4
  1737.  muls 6(a2),d3
  1738.  sub.l d3,d4    ; positive
  1739.  
  1740.  move.w Viewerx,d5
  1741.  move.w Viewerz,d6
  1742.  sub.w (a2),d5
  1743.  sub.w 2(a2),d6
  1744.  muls 4(a2),d6
  1745.  muls 6(a2),d5
  1746.  sub.l d6,d5    ; positive
  1747.  
  1748.  divs 10(a2),d4
  1749.  divs 10(a2),d5
  1750.  
  1751.  move.w d5,d6
  1752.  add.w d5,d4
  1753.  beq.s .sameheight
  1754.  muls d7,d5
  1755.  divs d4,d5
  1756. .sameheight:
  1757.  add.w Viewery,d5    ; height at which we cross wall
  1758.  
  1759.  ext.l d5
  1760.  asl.l #7,d5
  1761.  
  1762.  moveq #0,d3
  1763.  move.w 8(a2),d3
  1764.  blt foundpt
  1765.  move.l ZoneAdds,a3
  1766.  move.l (a3,d3.w*4),a5
  1767.  add.l LEVELDATA,a5
  1768.  
  1769.  clr.b d2
  1770.  cmp.l ToZoneFloor(a5),d5
  1771.  bgt foundpt
  1772.  cmp.l ToZoneRoof(a5),d5
  1773.  bgt.s .GotIn
  1774.  st d2
  1775.  cmp.l ToUpperFloor(a5),d5
  1776.  bgt foundpt
  1777.  cmp.l ToUpperRoof(a5),d5
  1778.  blt foundpt
  1779.  
  1780. .GotIn:
  1781.  
  1782.  bra .GoThroughZones
  1783.  
  1784.  tst.w d4
  1785.  beq.s foundpt
  1786.  muls d6,d0
  1787.  divs d4,d0
  1788.  muls d6,d1
  1789.  divs d4,d1
  1790.  add.w Viewerx,d0
  1791.  add.w Viewerz,d1
  1792.  move.w d0,Targetx
  1793.  move.w d1,Targetz
  1794.  move.l d5,Targety
  1795.  
  1796. foundpt:
  1797.  
  1798.  movem.l (a7)+,d0-a7/a0-a6
  1799.  rts
  1800.  
  1801. GetRand:
  1802.  move.w Rand1,d0
  1803.  add.w #29,d0
  1804.  eor.w #$5f37,d0
  1805.  neg.w d0
  1806.  rol.w #5,d0
  1807.  move.w d0,Rand1
  1808.  rts
  1809.  
  1810. Rand1: dc.w 234
  1811.  
  1812. GoInDirection:
  1813.  move.l #SineTable,a0
  1814.  lea (a0,d0.w),a0
  1815.  move.w (a0),d1
  1816.  move.w 2048(a0),d2
  1817.  muls speed,d1
  1818.  add.l d1,d1
  1819.  muls speed,d2
  1820.  add.l d2,d2
  1821.  swap d1
  1822.  swap d2
  1823.  add.w oldx,d1
  1824.  add.w oldz,d2
  1825.  move.w d1,newx
  1826.  move.w d2,newz
  1827.  rts
  1828.  
  1829. CollideFlags: dc.l 0
  1830.  
  1831. Collision:
  1832.  
  1833.  move.l ObjectData,a0
  1834.  move.w CollId,d0
  1835.  asl.w #6,d0
  1836.  move.b 16(a0,d0.w),d0
  1837.  ext.w d0
  1838.  
  1839.  sub.w #64,a0
  1840.  move.l ObjectPoints,a1
  1841.  move.l #ColBoxTable,a2
  1842.  lea  (a2,d0.w*8),a3
  1843.  
  1844.  move.l CollideFlags,d7
  1845.  move.b StoodInTop,d6
  1846.  move.l newy,d4
  1847.  move.l d4,d5
  1848.  add.l thingheight,d5
  1849.  asr.l #7,d4
  1850.  asr.l #7,d5
  1851.  clr.b hitwall
  1852.  
  1853. checkcol:
  1854.  add.w #64,a0
  1855.  
  1856.  move.w (a0),d0
  1857.  blt checkedallcol
  1858.  
  1859.  cmp.w CollId,d0
  1860.  beq.s checkcol
  1861.  
  1862.  tst.w 12(a0)
  1863.  blt.s checkcol
  1864.  
  1865.  tst.b numlives(a0)
  1866.  beq.s checkcol
  1867.  
  1868.  move.b ObjInTop(a0),d1
  1869.  eor.b d6,d1
  1870.  bne checkcol
  1871.  
  1872.  moveq #0,d3
  1873.  move.b 16(a0),d3
  1874.  blt checkcol
  1875.  
  1876.  btst d3,d7
  1877.  beq checkcol
  1878.  
  1879.  move.w 4(a0),d1
  1880.  sub.w 2(a2,d3.w*8),d1
  1881.  cmp.w d1,d5
  1882.  blt checkcol
  1883.  add.w 4(a2,d3.w*8),d1
  1884.  cmp.w d1,d4
  1885.  bgt checkcol
  1886.  
  1887.  move.w (a1,d0.w*8),d1
  1888.  move.w 4(a1,d0.w*8),d2
  1889.  sub.w newx,d1
  1890.  bge.s .xnoneg
  1891.  neg.w d1
  1892. .xnoneg:
  1893.  sub.w newz,d2
  1894.  bge.s .znoneg
  1895.  neg.w d2
  1896. .znoneg:
  1897.  cmp.w d1,d2
  1898.  ble.s .checkx
  1899.  sub.w (a3),d2
  1900.  cmp.w (a2,d3.w*8),d2
  1901.  bgt checkcol
  1902.  st hitwall
  1903.  bra checkedallcol
  1904. .checkx:
  1905.  sub.w (a3),d1
  1906.  cmp.w (a2,d3.w*8),d1
  1907.  bgt checkcol
  1908.  
  1909.  move.w (a1,d0.w*8),d1
  1910.  move.w 4(a1,d0.w*8),d2
  1911.  move.w d1,d6
  1912.  move.w d2,d7
  1913.  sub.w newx,d6
  1914.  sub.w newz,d7
  1915.  muls d6,d6
  1916.  muls d7,d7
  1917.  add.l d6,d7
  1918.  sub.w oldx,d1
  1919.  sub.w oldz,d2
  1920.  muls d1,d1
  1921.  muls d2,d2
  1922.  add.l d1,d2
  1923.  cmp.l d2,d7
  1924.  bgt checkcol
  1925.  
  1926.  st hitwall
  1927.  bra checkedallcol
  1928.  
  1929. ; bra checkcol
  1930.  
  1931. checkedallcol:
  1932.  rts
  1933.  
  1934. ColBoxTable:
  1935.  
  1936. ; red scurrying alien
  1937.  dc.w 40,60,120,0
  1938. ; Medipack
  1939.  dc.w 40,20,40,0
  1940. ; Bullet
  1941.  dc.w 40,20,40,0
  1942. ; Gun
  1943.  dc.w 40,20,40,0
  1944. ; Key
  1945.  dc.w 40,20,40,0
  1946. ; PLayer1
  1947.  dc.w 40,40,80,0
  1948. ;Robot
  1949.  dc.w 40,50,100,0
  1950. ;?
  1951.  dc.w 40,20,40,0
  1952. ; Flying Nasty
  1953.  dc.w 80,60,120,0
  1954. ; Ammo
  1955.  dc.w 40,20,40,0
  1956. ; Barrel
  1957.  dc.w 40,30,60,0
  1958. ;PlAYER2
  1959.  dc.w 40,40,80,0
  1960. ; Mutant Marine
  1961.  dc.w 40,40,80,0
  1962. ; worm
  1963.  dc.w 80,60,120,0
  1964. ; huge red thing
  1965.  dc.w 160,100,200,0
  1966. ; small red thing
  1967.  dc.w 80,50,100,0
  1968. ; tree
  1969.  dc.w 80,60,120,0
  1970. ; eyeball
  1971.  dc.w 40,30,60,0
  1972. ; Tough Marine
  1973.  dc.w 40,40,80,0
  1974. ; ShotGun Marine
  1975.  dc.w 40,40,80,0
  1976.  
  1977. FromZone: dc.w 0
  1978. OKTEL: dc.w 0
  1979. floortemp: dc.l 0
  1980.  
  1981. CheckTeleport:
  1982.  clr.b OKTEL
  1983.  move.w FromZone,d0
  1984.  move.l ZoneAdds,a2
  1985.  move.l (a2,d0.w*4),a2
  1986.  add.l LEVELDATA,a2
  1987.  tst.w ToTelZone(a2)
  1988.  bge.s ITSATEL
  1989.  rts
  1990.  
  1991. ITSATEL:
  1992.  move.l ToZoneFloor(a2),floortemp
  1993.  move.w ToTelZone(a2),d0
  1994.  move.l ZoneAdds,a3
  1995.  move.l (a3,d0.w*4),a3
  1996.  add.l LEVELDATA,a3
  1997.  move.l ToZoneFloor(a3),d0
  1998.  sub.l floortemp,d0
  1999.  move.l d0,floortemp
  2000.  add.l d0,newy 
  2001.  move.w ToTelX(a2),newx
  2002.  move.w ToTelZ(a2),newz
  2003.  move.l #%1111111111111111111,CollideFlags
  2004.  movem.l a0/a1/a2,-(a7)
  2005.  bsr Collision
  2006.  movem.l (a7)+,a0/a1/a2
  2007.  
  2008.  move.l floortemp,d0
  2009.  sub.l d0,newy
  2010.  
  2011.  tst.b hitwall
  2012.  seq OKTEL
  2013.  beq.s .teleport
  2014.  rts
  2015. .teleport:
  2016.  move.w ToTelZone(a2),d0
  2017.  move.l ZoneAdds,a2
  2018.  move.l (a2,d0.w*4),a2
  2019.  add.l LEVELDATA,a2
  2020.  move.l a2,objroom
  2021.  
  2022.  rts
  2023.  
  2024. FindCloseRoom:
  2025.  ; d0 is distance.
  2026.  
  2027.  move.w 4(a0),d1
  2028.  ext.l d1
  2029.  asl.l #7,d1
  2030.  move.l d1,oldy
  2031.  move.l d1,newy
  2032.  
  2033.  move.w (a0),d1
  2034.  move.l ObjectPoints,a1
  2035.  lea (a1,d1.w*8),a1
  2036.  move.w (a1),oldx 
  2037.  move.w 4(a1),oldz
  2038.  
  2039.  move.w 12(a0),d2
  2040.  move.l ZoneAdds,a5
  2041.  move.l (a5,d2.w*4),d2
  2042.  add.l LEVELDATA,d2
  2043.  move.l d2,objroom
  2044.  
  2045.  move.w THISPLRxoff,newx
  2046.  move.w THISPLRzoff,newz
  2047.  move.w d0,speed
  2048.  movem.l a0/a1,-(a7)
  2049.  jsr HeadTowards
  2050.  movem.l (a7)+,a0/a1
  2051.  
  2052.  move.w newx,d0
  2053.  sub.w oldx,d0
  2054.  move.w oldz,d1
  2055.  sub.w newz,d1
  2056.  
  2057.  move.w d1,xd
  2058.  move.w d0,zd
  2059.  
  2060.  move.l #100000,StepUpVal
  2061.  move.l #100000,StepDownVal
  2062.  move.w #0,thingheight
  2063.  
  2064.  st exitfirst
  2065.  
  2066.  add.w oldx,d1
  2067.  add.w oldz,d0
  2068.  move.w d1,newx
  2069.  move.w d0,newz
  2070.  movem.l d0-d7/a0-a6,-(a7)
  2071.  clr.b wallbounce
  2072.  jsr MoveObject
  2073.  movem.l (a7)+,d0-d7/a0-a6
  2074.  
  2075.  move.l #RoomPath,a2
  2076.  move.l #possclose,a3
  2077.  move.w 12(a0),(a3)+
  2078.  
  2079. putinmore:
  2080.  move.w (a2)+,(a3)+
  2081.  bge.s putinmore
  2082.  subq #2,a3
  2083.  
  2084.  move.w oldx,d0
  2085.  sub.w xd,d0
  2086.  move.w oldz,d1
  2087.  sub.w zd,d1
  2088.  move.w d0,newx
  2089.  move.w d1,newz    
  2090.  
  2091.  movem.l d0-d7/a0-a6,-(a7)
  2092.  clr.b wallbounce
  2093.  jsr MoveObject
  2094.  movem.l (a7)+,d0-d7/a0-a6
  2095.  
  2096.  move.l #RoomPath,a2
  2097.  
  2098. putinmore2:
  2099.  move.w (a2)+,d0
  2100.  move.w d0,(a3)+
  2101.  tst.w d0
  2102.  bge.s putinmore2
  2103.  
  2104. ; ok a3 points at list of rooms passed through.
  2105.  move.w #-1,(a3)+
  2106.  
  2107.  
  2108.  move.w 12(a0),d7
  2109.  
  2110.  move.l endoflist,a3
  2111. FINDCLOSELOOP:
  2112.  move.l #possclose,a2
  2113.  move.w -(a3),d0
  2114.  blt foundclose
  2115.  
  2116. findinner
  2117.  move.w (a2)+,d1
  2118.  blt.s outin
  2119.  cmp.w d0,d1
  2120.  bne.s findinner
  2121.  move.w d0,d7
  2122. outin:
  2123.  
  2124.  bra.s FINDCLOSELOOP
  2125.  
  2126. foundclose:
  2127.  
  2128.  move.w d7,GraphicRoom(a0)
  2129.  
  2130.  rts
  2131.  
  2132. xd: dc.w 0
  2133. zd: dc.w 0
  2134.  
  2135. possclose:
  2136.  ds.w 100